home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASANS.ZIP / CH06_3.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-04  |  719 b   |  36 lines
  1.                             (* Chapter 6 - Programming exercise 3 *)
  2. program First_Array;
  3.  
  4. const Size = 7;
  5.  
  6. var Product : array[1..Size,1..Size] of integer;
  7.     Row     : integer;
  8.     Column  : integer;
  9.  
  10. begin
  11.    for Row := 1 to Size do
  12.       for Column := 1 to Size do
  13.          Product[Row, Column] := Row * Column;
  14.  
  15.    for Row := 1 to Size do begin
  16.       for Column := 1 to Size do
  17.          Write(Product[Row,Column]:4);
  18.       Writeln;
  19.    end;
  20. end.
  21.  
  22.  
  23.  
  24.  
  25. { Result of execution
  26.  
  27.    1   2   3   4   5   6   7
  28.    2   4   6   8  10  12  14
  29.    3   6   9  12  15  18  21
  30.    4   8  12  16  20  24  28
  31.    5  10  15  20  25  30  35
  32.    6  12  18  24  30  36  42
  33.    7  14  21  28  35  42  49
  34.  
  35. }
  36.